<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留

if RZ_IN<>1 then
	response.write("非法请求")
	response.end
end If

Sub ShowAllProduct(S_KEY)

Dim defaulttemplate
defaulttemplate="allproducts.html"
SysInclude(defaulttemplate)

S_CRUMB.Str=text("全部商品","All Products")


If S_KEY=0 Then 
	Flush()
Else
	FlushToHTML()
End If 

End Sub
%>